;; EX-26 - Harmonic Swimming (JMcC)

(let* ((a 0.08)
       (f 50)				; fundamental frequency
       (p 20)			        ; number of partials per channel
       (offset (Line.kr 0 (- a) 60)))   ; causes sound to separate and fade
  (let loop ((z 0) (i 0))
    (if (> i p)
	z
	(loop (FSinOsc.ar (* f (+ i 1))
			  0
			  (Max 0
			       (LFNoise1.kr (random-list 2 2 8)
					    a
					    offset))
			  z)
	      (+ i 1)))))
